home *** CD-ROM | disk | FTP | other *** search
/ Delphi Informant Complete 1995 - 2000 / Delphi Informant Complete 1995 to 2000.iso / Delphi Informant Magazine Complete Works SOURCE CODE 1995.rar / 1995 / JUN / MO9506 / rodemo.pas < prev    next >
Pascal/Delphi Source File  |  1995-04-19  |  1KB  |  57 lines
  1. unit ROdemo;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls;
  8.  
  9. type
  10.   TRODemo = class(TLabel)
  11.  
  12. private
  13. { Private declarations - visible only to this class }
  14.   ROProp : String;
  15.   procedure SetROProp(ROValue: String);
  16.  
  17. protected
  18. { Protected declarations - visible to this class and its decendants }
  19.  
  20. public
  21. { Public declarations - visible to all classes }
  22.   constructor Create(AOwner: TComponent); override;
  23.   function GetROProp : String;
  24.  
  25. published
  26. { Published declarations - visible to all classes, and displayed in the Delphi Object Inspector }
  27.  
  28. end;
  29.  
  30. procedure Register;
  31.  
  32. implementation
  33.  
  34. constructor TRODemo.Create(AOwner: TComponent);
  35. begin
  36.   inherited Create(AOwner); { Call the parent class' constructor }
  37.   SetROProp('This value is scoped to be hidden'); {Set the default value of the R/O property }
  38. end;
  39.  
  40. procedure TRODemo.SetROProp(ROValue: String);
  41. begin
  42.    ROProp := ROValue;
  43. end;
  44.  
  45. function TRODemo.GetROProp : String;
  46. begin
  47.   Result := ROProp;
  48. end;
  49.  
  50. procedure Register;
  51. begin
  52.   RegisterComponents('Samples', [TRODemo]);
  53. end;
  54.  
  55. end.
  56.  
  57.